<!-- #include file="configuracoes.asp" -->
<!-- #include file="interface/head.asp" -->
<%permissao "rodadas"%>
<%

opcao = requestGET("opcao")
id_rodada = requestGET("id")
valor = requestGET("valor")



DIM i, j

Select Case opcao

	Case "rodadas"
			
		str = "Select id FROM rodadas order by id desc"
    	Set rsR = conexao_geral.Execute(str)

		j = 0
		
		rodadas_interface_cabecario
		
		Do While not rsR.eof
		
			id = rsR("id")
		
			%><div class="lista_linha" id="rodada_<%=id%>" style="background:#<%=linha_cor(j mod 2)%>"><%
		
			rodadas_interface_id id
			
			%></div><div id="rodada_<%=id%>_jogos" style="display:none"></div>  <%
			
			j=j+1
		
		rsR.MoveNext
		Loop
		
	Case "rodada"
	
		rodadas_interface_id id_rodada
		
	Case "deletar"
	
		rodada_deletar_rodada(id_rodada)
	
		Response.Redirect "rodadas.asp"	
		
	Case "novo"
	
		rodada_novo_rodada()
	
		Response.Redirect "rodadas.asp"		
		
	Case "completa"
	
		str = "Select simulacao, completa, status FROM rodadas where id="&id_rodada
    	Set rsR = conexao_geral.Execute(str)

		If not rsR.eof then
			If ((valor = 0 or valor = 1 ) AND rsR("simulacao")=0 AND rsR("completa")<2) OR ((valor = 2 or valor = 1 or valor = 0 ) AND rsR("simulacao")=0 AND rsR("status")=1) then

				rodada_set_completa_id valor, id_rodada 
				
			End If
		End If
		
		rodadas_interface_id id_rodada
		
'--------------------------------------------------------------------------------------------------
'Jogos
'--------------------------------------------------------------------------------------------------		

		
	Case "jogos"
	
		str = "Select posicao FROM rodadas_jogos WHERE id_rodada="&id_rodada&" Order by posicao asc"
    	Set rsRJ = conexao_geral.Execute(str)
		
		%><div class="lista_linha sub_menu"></div><%
		
		c = false		

		Do while not rsRJ.eof
		
		c = true
		
		posicao = rsRJ("posicao")
		
		%>
        <div class="lista_linha sub_menu" id="jogo_<%=id_rodada%>_<%=posicao%>"><%
		
			rodadas_interface_jogo id_rodada, posicao
			
		%></div>
		<%
		
		rsRJ.MoveNext
		Loop
		
		If rodada_completa_id(id_rodada) = False then
		
			If c then
			
			%><div class="lista_linha sub_menu"></div><%
			
			End IF
			
			%><div class="lista_linha sub_menu lista_centro"><a href="javascript:painel_rodadas('<%=id_rodada%>', 'jogos_novo', 0, 'rodada_<%=id_rodada%>_jogos')">Adicionar Jogo</a></div><%	
			
		End If
		
		%><div class="lista_linha sub_menu"></div><%			
		
	Case "jogos_deletar"
	
		posicao = valor
	
		rodada_deletar_jogo id_rodada, posicao 
	
		Response.Redirect("rodadas_funcoes.asp?opcao=jogos&id="&id_rodada)	

	Case "jogos_editar_clube"
	
		campos = split(id_rodada, "_")
	
		posicao = campos(1)
		id_rodada = campos(0)
		lado = campos(2)
		id_clube = valor
	
		sql_edicao conexao_geral, "rodadas_jogos", "clube_"&lado, id_clube, "id_rodada="&id_rodada&" AND posicao="&posicao
	
		rodadas_interface_jogo id_rodada, posicao

	Case "jogos_editar_clube_interface"
	
		campos = split(id_rodada, "_")
	
		posicao = campos(1)
		id_rodada = campos(0)
		lado = campos(2)
		id_campeonato = valor
		
		rodadas_interface_clubes id_rodada, posicao, id_campeonato, lado
		

	Case "jogos_editar_campeonato"
	
		campos = split(id_rodada, "_")
	
		posicao = campos(1)
		id_rodada = campos(0)
		id_campeonato = valor
	
		sql_edicao conexao_geral, "rodadas_jogos", "campeonato", id_campeonato, "id_rodada="&id_rodada&" AND posicao="&posicao
	
		rodadas_interface_jogo id_rodada, posicao

	Case "jogos_editar_campeonato_interface"
	
		campos = split(id_rodada, "_")
	
		posicao = campos(1)
		id_rodada = campos(0)
		id_campeonato = valor
		
		rodadas_interface_campeoantos id_rodada, posicao, id_campeonato		
		

	Case "jogos_novo"
	
	
		rodada_novo_jogo id_rodada, data_pt_en(DateAdd("d",Date(),4)&" 01:00"), 0, 0, 1
		
		Response.Redirect("rodadas_funcoes.asp?opcao=jogos&id="&id_rodada)	
	
	Case "jogos_editar_data"
	
		campos = split(id_rodada, "_")
	
		posicao = campos(1)
		id_rodada = campos(0)
		data = data_pt_en(valor&":00")
				
		If verificar_data (valor, "DD/MM/AAAA hh:mm") then	
	
			rodada_editar_data_jogo id_rodada, posicao, data
			
		End If

		Response.Redirect("rodadas_funcoes.asp?opcao=jogos&id="&id_rodada)		
		

	Case "jogos_editar_data_interface"
	
		campos = split(id_rodada, "_")
	
		posicao = campos(1)
		id_rodada = campos(0)
		data = valor
		
		rodadas_interface_data id_rodada, posicao, data					
		
		
End Select


%>

<!-- #include file="interface/footer.asp" -->